* Produce Figure 1 in Appendix A - Trend in cohabitation 

	clear all

	cd "${data}"

	* prep dataset for 18-34
	import delimited 18_34_eurostats.csv, encoding(UTF-8)
	rename rate rate1834
	save 18_34_eurostats.dta, replace 
	
	* prep dataset for 25-34 
	clear
	import delimited 25_34_eurostats.csv, encoding(UTF-8)
	rename rate rate2534
	save 25_34_eurostats.dta, replace 
	
	* Merge two trends in one graph 
	
	use 18_34_eurostats.dta, clear
	merge 1:1 country year using 25_34_eurostats.dta
	drop _merge
			
			
	graph set window fontface "Arial Narrow"
	
	twoway (line rate1834 year, lcolor(black)) (line rate2534 year, lcolor(gs10) lpattern(solid)), by(country, note(""))  ///
	xline(2008, lpattern(shortdash)) ///
	ytitle("Young adults living with their parents (%)", size(small)) ///
	yscale(r(0(20)100)) yl(0(20)100) ///
	xtitle(Year, size(small)) ///
	xl(,angle(vertical)) ///
	legend(order(1 "18-34 years old"   ///
				 2 "25-34 years old")  ///
     pos(6) cols(2) size(small))      /// 
	ysize(1) xsize(1) ///
	scheme(lean1)
		
		 graph export ${figures}/appendixA.pdf,  replace
		 
	
		
